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000000 PPPPPPPP RRRRRRRR EEEEEEEEEE NN NN AAAAAA 88888888 LL EEEEEEEEEE 
000000 PPPPPPPP RRRRRRRR EEEEEEEEEE NN NN AAAAAA BBBBBBBB LL EEEEEEEEEE 

00 00 PP PP RR EE NN NN AA AA BB BB LL EE 

00 00 PP PP RR RR EE NN NN AA AA 6B BB LL EE 

90 00 PP PP RR RR EE NNNN NN AA AA BB BB LL EE 

00 00 PP PP RR RR EE NNNN NN AA AA 6B BB LL EE 

00 00 PPPPPPPP RRRRRRRR EEEEEEEE NN NN NN AA AA 688888888 LL EEEEEEEE 

00 00 PPPPPPPP RRRRRRRR EEEEEEEE NN NN NN AA AA 688888888 LL EEEEEEEE 

00 00 PP RR RR EE NN NNNN AAAAAAAAAA BB BB LL EE 

00 00 PP RR RR EE NN NNNN AAAAAAAAAA BB BB LL EE 

00 00 PP RR RR EE NN NN AA AA BB BB LL EE cece 

00 00 PP RR RR EE NN NN AA AA BB BB LL EE cece 
000000 PP RR RR EEEEEEEEEE NN NN AA AA 688888888 LLLLLLLLLL EEEEEEEEEE eeee 
000000 PP RR RR EEEEEEEEEE NN NN AA AA 68888688 LLLLLLLLLL EEEEEEEEEE cece 
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MODULE OPCSOPRENABLE 


( 
ANGUAGE ( ), 
IDENT fey 48898 
= 


SRA AREER AEA EEE AERA AEE EEAA EAE EEAAA AAT A TERE AEAAAEREREEREARe Eee 


000 ie 

000 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

000 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. | 

00 is ALL RIGHTS RESERVED. 

00 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 ie ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE 
00 ie J ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

90 iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


'® TRANSFERRED. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJE 
'* AND SHOULD NOT BE CONSTRUED AS A COMM 
'® CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


er TO CHANGE WITHOUT NOTICE 


* 
® 
2 
t 
w 
® 
® 
® 
* | 
i RO * | 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
® 
* | 
* 
MENT BY DIGITAL EQUIPMENT * 
® 
*® 
® 
® 
® 
® 
® 
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Steven T. Jeffreys 


9 ¢ ++ | 
$ ; FACILITY: 
32 i OPCOM | 
3 
: H ABSTRACT: | 
6 3 This module contains the specialized logic to service | 
HH Bos a particular type of request sent by a user to OPCOM. 
$ 0039 ! Environment: | 
40 epee 
41 1041 VAX/VMS operating system. i 
4g Bog | 
4 04 | 
044 
| 


Creation date: 
March 10, 1981 
Revision history: 


V03-003 CWH3003 CW Hobbs 16-Sep-1983 
Moved a routine reference. 
V03-002 CWwH3002 CW Hobbs 30-Jul-1983 
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Various and sundry things to make OPCOM distributed 


J 3 
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: 28 33 } across the cluster. 

: 60 i y03-001 $1J3035 Steven T. Jeffreys, 07-0 t-1982 

: 6) be) 1 Force remote terminal operators to be temporary operators. 

; 8 g i y02-002 $TJ0166 Steven T. dot trexs 08-Feb-1982 

; 3 ne : Removed reference to Library OPC GET_VM. : 

: 66 066 ine 

s; 67 006 

3 o8 0069 i BEGIN ' Start of OPRENABLE 

: 0 S74 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; 

oo. ae ta 1 LIBRARY ‘LI8$:OPCOMLIB'; 

3 if; Ore 1 

8 7 007 1 FORWARD ROUTINE 

: 74 0074 1 OPRENABLE _HANDLER : NOVALUE, 

ae 0075 1 OPRENABLE-CLM_HANDLER =: NOVALUE; 

ay 0076 1 

RB as 0077 1 BUILTIN 

eS 7. 0078 1 

; 79 0079 1 INSQUE, ' Insert entry onto a queue 

3 69 Spee : REMQUE; ! Remove entry from a queue 

: Be 008¢ 1 EXTERNAL LITERAL 

a = 00835 1 RQCB_K_TYPE, ' RQCB structure type 

; «84 0084 1 MIN_SCOPE, ! Minimum value for scope 

3 $3 4#4 : MAX_SCOPE; ! Maximum value for scope 

: 87 0087 1 EXTERNAL ROUTINE 

; «688 0088 #1 ALLOCATE_DS ' Allocate a data structure 

5 34 94.34 : CHECK OBER. COVERAGE : NOVALUE, ace oper stor coverage on requests 
: ' Common san chec 

; Wi 0091 1 CLUSMSG_CONV_CLM RQCB, ' Convert CLMROCE to a local RQCB 
3 a8 44 : CLUSHSG an aaa send the ROCB to remote nodes 

3 : F ' Create a new 

> 94 0094 1 DEALLOTATE_MCB_ : NOVALUE, ! Dispose of an MCB 

; 32 4 : + A RQCB : NOVALUE, ! Dispose of an RQCB 

rt a 0097 1 IND“OCD; ! Find a given OCD 

s 0098 1 F IND OPERATOR ! Find a given operator 

; WW 0099 1 FOR ME E, ! Format a message and build an MCB 
: 108 B10} LOGCRESSAGES artie's ncsenas tek teettia 

: 108 0102 1 NOTIFY_LISTED OPERATORS, i Send message #0 List of operators 
: 10 0103 1 NOTIFY" OPERATOR ! Send message to a given operator 
3; 104 0104 1 UPD_OPER CONTEXT, ! Update a given operator RQCB 
3 109 0108 VALTD_OPERATOR ' See if operator device is valid 
: 109 199 1 ‘ : 

: 108 108 1 EXTERNAL . 

: 109 109 1 GLOBAL_STATUS : BITVECTOR; ! Global status flags 
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: 13 119 } GLOBAL ROUTINE OPRENABLE_HANDLER (BUFFER_DESC) : NOVALUE = | 
; 118 11 1 !+¢ | 
; 1 3 | : Functional description: 
: 118 116 } This routine is the handler for all OPRENABLE messages received by OPCOM. | 
: 11 17 1: 

HR HIB] | ewe 
: 121 120 1! BUFFER_DESC : The address of a quadword buffer descriptor that 

3 : ¢ : 1 } } describes the buffer containing the message. 

: : ¢ 3 5 : ! Implicit Input: 

: : 6 3 2 } ; None. 

; 128 1 f i Output: 

AR BGT mw. 

: 132 01 1 ; Implict output: 

F 134 01 ‘ 1! Some accounting data will be updated 

; 133 4) : ; to reflect the receipt of the message. 

: 137 0136 1 | Side effects: 

: «4138 0137 1'! 

i rae an ie 

> 141 biz 1 | Routine value: 

3 146 0141 1! 

3: (14 big 1! None. 

tee Olea 1 

: 146 0145 2 BEGIN ! Start of OPRENABLE_HANDLER 

: 1d O149 2 map 

: 149 0148 BUF SER_DESC : Sref_bblock; 

TR BS Bon 

; 152 0151 STATUS_DESC : $desc_block ! Descriptor for status message 
> 153 015¢ STATUS BUF : $bblock COP( sx MAXREAD], ! Buffer for status message 
3; 154 HF MESSAGE_VECTOR : VECTOR C5,LONG], ' Message vector | 
s 155 154 MSG : $ref_bblock, ! Pointer to user request text | 
: 136 8122 IST : VECTOR (3). ' Arguement List 

s 15 138 ENABLE _FLAG : LONG, ' 1 1f ENABLE, 0 if DISABLE 

: 158 15 FULL_DTSABLE : LONG, ' Boolean 

: 159 138 FULL_ENABLE : LONG, ' Boolean 

: 160 15 UN : LONG, ' Boolean 

; 161 0160 LOST_COVERAGE LONG, ! Boolean 
3 136 161 OCD $ref_bblock, ! OCD structure 

; 196 RQCB $ref_bblock, ! ReQuest Context Block 

3 «6164 16 OPER_RQCB : Sref_bblock, ' Known operator RQCB 

; 19 +e: STATOS : LONG; | 
: 167 b188 FULL_ENABLE = FALSE; 


RETURN; 


3 
vor-000 1Sogeort9ge 04:44:13 OPCOM. SRCSOPRENABLE 1039; 1 race ot 
68 FULL DISABLE = FALSE; 
! If the request does not contain enough data, 
then it cannot be processed. Ignore it. 
ee COSCSW_LENGTH] LSS (OPCSK_OPRENABLE_MIN_SIZE + OPC$K_COMHDRSiZ) 
! 


i Call a special routine that does some sanit 


checking and startup code for all request handlers. 


if NOT (STATUS = CHECK REQUEST (.BUFFER.DESC, ROCB)) 


COOMWON AINA ANNO 
WN “CO OOnNOuUsSwn—oo 


! Check the specified device and see if it is a 
! valid operator device. This routine will also 
! format the operator device name and create a 
device name descriptor within the RQCB. 


if NOT VALID_OPERATOR (.BUFFER_DESC, .RQCB) 


BEGIN 
DEALLOCATE _RQCB (.RQCB); 
Ages 


SEER NI SSS RSPAS IESE NS OP 


9 
9 
9 : 
S ; 
9 ! See if the operator is already known to OPCOM. 
9 ! This entails slg down the appropriate operator 
2 List and comparing the device names for equality. 
8 FOUND = FIND_OPERATOR (.RQCB, OPER_RQCB); 
0 ! If the operator is known to OPCOM, then the requestor's UIC 
0 ! must agree with the UIC of the known operator. If it does not, 
04 ! then dismiss the request without notifying the requestor, as 
05 ! this would only allow a user to cause an operator to be plauged 
06 : with error messages for a request he did not send. 
IF .FOUND 
THEN 
BEGIN 
CD = .RQCB CROCB_L_OCD); ' Get the OCD address 
IF ((.0CD COCD_B SCOPE) EQL OPC$K_GROUP) AND ! If GROUP OCD, the group fields 
-OCD C$BYTEOFFSET (OCD_L_UICY,16,16,0] NEQ ! of the UIC must be the same for both 
ROCB CSBYTEOFFSET (ROCTBL_UIC),16,16,0])) ' the known operator and the requestor. 
OR ((.0CD COCD_B_SCOPE] EQL OPCSk USER) AND ! If USER OCD, the UICs must be equal. 
-OCD COCD-L-UIC] NEQ .RQCB CRACB_L_UICI)) 


BEGIN Dismiss the request 
DEALLOCATE_RQCB (.RQCB); 
RETURN; 


END; 
END; 
MESSAGE _VECTOR (0) = 0; 
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Assume no error 
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MESSAGE VECTOR C1) = 0; 


orce remote operators (DECnet remote terminals and 
a 


F 
dial-in Lines) to be ‘temporary’ operators. 


nd et me mm 


RQCB COPRSTS_V_REMTRM) 
$bblock CRQCB CRQCB_L_RQ_OPTIONS], OPC$V_PERMOPER] = FALSE; 


If an enable em jf includes SECURITY operator, make sure that the requestor 
has SECURITY privilege. 


F (.$bblock CRQCB CROCB_L_ATTNMASK1J-S$BYTEOFFSET (OPCSV_NM SECURITY), OPC$V_NM_SECURITY]J) 
AND (NOT .$bblock CROCB CROCB_L_PRIVMASK1], PRVSV_SECURITYJ) 


i Above test prevents someone from both enabling and disabling a security operator without having 
: SECURITY privilege. If the following Line is added, you wouldn't need privilege to disable. 


1 ehN (NOT .$bblock CRQCB CROCB_L_RQ_OPTIONS], OPC$V_DISABLE)) 

BEGIN 

No priv to set security operators, clear the bit in the request 

$bblock CRQCB CROCB_L_ATTNMASK1)-S$BYTEOFFSET (OPCSV_NM_SECURITY), OPCSV_NM_SECURITY] = 0; 
If no other operators requested, then it is an illegal request 

a nee CRQCB_L_ATTNMASK1] EQL 0) AND (.RQCB CROCB_L_ATTNMASK2) EQL 0) 
oe CO] = OPC$_ILLRQST; 


! Make sure that something is being enabled or disabled. 

: If not, this is an illegal request. Also, do not allow 

! the user to touch the PERMOPER bit if the operator device 
is a remote terminal. 

IF (.RQCB ROCB_L_ATTNMASK} EQL 0) 
AND (.RQCB CRQCB_L_ATTNMASK2) EQL 0) 

D (NOT .$bblock [CRQCB CROCB_L_RQ_OPTIONS], OPC$V_PERMOPER)) 
((.RQCB COPRSTS_V_REMTRMJ) AN 

(.$bblock CROCB™CRQCB_L_R@_OPTIONS], OPC$V_PERMOPER])) 


MESSAGE _VECTOR CO) = OPCS_ILLRQST; 


i See if the user has the correct privilege(s) 
for the request to be granted. 


iF ((.RQCB CROCB_B SCOPE] EQL OPCS$K_SYSTEM) AND 
NOT .$bblock [ROCB [ROCB_L_PRIQMASK1], PRVSV_OPER])) 
OR ((.RQCB CROCB_B SCOPE) EQL~OPC$K GROUP) ‘A 
((NOT .$bblock"CRQCB CROCB_L_PRIVMASK1], PRVSV_GROUP]) OR 


' Set request status 


! SYSTEM scope requires OPER privilege 
! GROUP scope requires GROUP privilege 


OP! 


< 
o 


72 


] 
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v04-000 1ergeh=1882 93:8hi83 FOR com. Sacdoprewagce .6$951 % (2) 
8 0281 (NOT .$bblock CRQCB rege L_PRIVMASK1], PRVS$V iw 
8 8 B OR ((.RQCB CROCB_L_SENDERUIC) NEG .ROCB CRa¢B L_UIT]) AND ! Issuing a request on another's behalf 
Be bse? al -Sbblock CRQCB CROCB_L_PRIVMASK1J, PRVSV_OPER])) ' requires OPER privilege. 
; 8 $2 MESSAGE_VECTOR CO] = OPCS$_ILLRQST; ! Set request status 
288 0 89 i If an error was detected, notify the 
$8? 8 Hy would-be operator and abort the request. 
$34 0290 2 IF .MESSAGE_VECTOR [0] NEQ 0 
ra) 0291 THEN 
g 353 BEGIN 
94 029 FORMAT_MESSAGE (.RQCB, MESSAGE_VECTOR); 
295 0294 NOTIFYOPERATOR (.RQCB); 
296 0295 DEALLOTATE_RQCB (.RQCB); 
297 RETURN; 
298 END; 
99 ‘ 
$09 Finish the request. 
302 if NOT .$bblock CRQCB CROCB_L_RQ_OPTIONS], OPC$V_DISABLE) 
303 THEN 
04 BEGIN 
; This is an enable request. 
0 ENABLE _F ' Set bit value 
N 
BEGIN 


i The operator is not known to OPCOM. An operator RQCB 
! must be created and inserted onto the peprogr late ocd 
operator list so the generalized ENABLE 


FULL_ENABLE = TRY 


ogic will work. 


MNMIMNNMNNIN 3 3 2 2 OO SO ahah 
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E_FLAG = 1; 
MESSAGE_VECTOR [0] = OPC$_TERMENAB; i Set message code 
IF NOT FOUND 


WIAA AINN NAA AINA AAW AAAAN AAA AAA AA AANA 


Es 
ALLOTATE_DS (RQCB_K_TYPE, OPER_RGCB); ' Clone a new RQCB 
CHSMOVE TROCB_K_OVERLAY SIZE, i Copy old 
RQCB CROC. T OVERLAY, OPER_RQCB CROCB_T_OVERLAY]); 
OPER_RQCB CRQCB_L_OPTIONS)~="0; T Zero option mask 
OPER_RQCB CROCB_L_RQ_OPTIONS) = 0; ! Zero option mask 
OPER-RQCB CROCB-L_ATTNMASK1]) = 0; ! Zero mask for enable 
$ OPER_RQCB RQCB_L_ATTNMASK2) = 0; ! Zero mask for enable 
2 !' Insert the operator RQCB into the operator List in the appropriate 
$ $f OCD. If no OCD is found, then a new one must be created. 
; $3 iA a! FIND_OCD (.RQCB CRQCB_B_SCOPE], .RQCB CRQCB_L_UICJ, OCD) 
3 31 CREATE_OCD (.RQCB CRQCB_B SCOPE], .RQCB CRQCB_L_UIC], OCD); - 
3 3 INSQUE (.OPER_RQCB, OCD COCK C_OPERFLINK]); '“Imsert cloned RQCB onto operator List 
3 3 OPER_ROCB CROTB_L cD) = .0CB: i Set pointer to OCD 
3 4 OCD COCD_W_OPERTOONT) = .OCD Cocd_w_OPERCOUNTI+1;! Increment operator count 
36 35 ARG_LIST (0) = 1; : Set arguement count 
37 $39 ARG_LIST (1) = OPER_RQCB CRQCB_L_OPER_LEN); ! Set operator device name 
38 33 ARG_LIST (2) = ON; ! Bit value 


OPC 
V04 
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; 2 8 38 4 gia (ROUTIN=EXESSETOPR, ARGLST=ARG_LIST); Set the OPR bit in the device UCB. 

; 341 0340 END 

: rk 0341 ELSE 
; 8 46 IF NOT .FOUND | 
: 344 4 THE 
; 345 0344 BEGIN 
> 346 0345 : 
3 rf 4 B49 } The user is trying to disable a nonexistent operator. | 
; 349 0348 MESSAGE_VECTOR [0] = OPC$_ILLRQST; 
; 329 ted MESSAGE VECTOR (1) = 3; 

; 51 0350 FORMAT_MESSAGE (.RQC3, MESSAGE_VECTOR); 
: 392 0351 NOTIFY-OPERATOR (.ROCB); | 
; 0 26 DEALLOCATE_RQCB (.RQCB); 

; $2¢ 0353 3 RETURN; 

3 309 0354 3 END 

: 356 0355 ; ELSE 

3 Sor 0356 BEGIN 

; 358 0357 3 ' Sigs 

; «4359 0358 3 ! This is a legitimate DISABLE request. 
; 360 0359 H ! ; 
s 361 0360 ENABLE_FLAG = 0; ! Set for disable request 

: 369 0361 3 MESSAGE_VECTOR CO] = OPC$_TERMDSBL; | 
; 3» Seee § END; 
; 6364 036 : 
; 365 0364 : Tell the rest of the world about the change. We convert the RQCB into a form which contains all 
; 366 0365 ! variable length buffers (rather than pointers to heap memory), then send the converted RQCB to 
3 see bse § all the other OPCOMs in the universe. 
: $90 beee § CLUSMSG_ROCB_SEND (=1, CLM__OPRENABLE, .RQCB); 
; Sri 0370 2 ! Update the OCD count vector for each bit present in the bit mask. | 
; Sofe 0371 2! The count will be decremented for a DISABLE, incremented for an ENABLE. | 
3; Sve beg 2 ! Also update the OCD operator intrest mask, and the corresponding intrest 

; 374 0373 2 ! mask in the operator RQCB. Note if there was a potential lose of operator 

3 32 Ore § } coverage on any outstanding requests. 

3 ive 0376 2 LOST_COVERAGE = UPD_OPER_CONTEXT (.$bblock CRQCB CRQCB_L_RQ_OPTIONS], OPC$V_DISABLE], 

: 378 0377 2 *ROCB CRacB_L_ATINMASKT], 
: 379 0378 -RQCB CRQCB_L_ATTNMASK2), 

; 380 0379 -OPER_RQCB 

; 381 0380 : 
. on ae ioe oe 
3 +4 bang Set the PERMOPER bit as desired. 
; 385 038% if .$bblock CRQCB CROCB_L_RQ_OPTIONS], OPC$V_PERMOPER] 

; 387 0386 ,  Sbblock COPER_RQCB CROCB_L_RO_OPTIONS], OPCSV_PERMOPER] = .ENABLE_FLAG; 

; ow 0388 ! If the OPER_RQCB attention mask went to 0, then 

; rs 8359 disable the operator terminal. 
; 392 0391 3 IF (.OPER_ROQCB CROCB_L_ATTNMASK1] EQL 0) AND (.OPER_RQCB [ROCB_L_ATTNMASK2) EQL 0) 
: 393 0335 THEN 
3 394 33 BEGIN 
: 395 0394 FULL_DISABLE = TRUE; 


‘ 
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96 95 $bbLock FOPER_ROCB RQCB_L_OPTIONS], OPC$V_NOBRD] = .$bblock Race RQCB_L_OPTIONS], OPC$V_NOBRD]; 
97 36 Sbblock COPER-RQCB CROCB-L-OPTIONSJ, OPC$VINOLOG] = .$bblock [RQCB [ROCB-L-OPTIONS], OPC$V-NOLOG): 
98 9 DEALLOCATE_RQCB (.RQCB); Get rid of the old RACB | 
99 338 REMQUE (.OPER_RQCB, ROCA); i Remove operator RQCB from List | 
400 99 RQCB = .OPER_RQCB; ' Copy the RQCB address 
401 OCD = .RQCB [CRQCB_L gcoJ; ' Get OCD address 
40 OCD COCD_W_OPERCOONT] = .OCD COCD_W_OPERCOUNT] = 1; | 
40 ARG_LIST (0) = 1; ! Set arguement count 
404 ARG-LIST (1) = OPER_RQCB CROCB_L_OPER_LEN]; | Set operator device name 
405 ARG LIST (2) = OFF; ! Bit value 
406 SCARRNL (ROUTIN=EXESSETOPR, ARGLST=ARG_LIST); Clear the OPR bit in the device UCB. 
408 ; 
409 OCD = .OPER_RQCB_CRQCB_L_OCD); 
RQCB CROCB C OCD) = .OtD; 
1 gir ULL WERABLE OR .FULL_DISABLE 


BEGIN 


| 
| 
| 
Send the ENABLE/DISABLE message to all CENTRAL operators 
connected to this OCD. Notify the requestor even if not a CENTRAL 
operator. If this is a full disable, explicitly notify this operator of 
the DISABLE. This is necessary because the operator is no longer 
on the OCD's operator List, and would not be notified otherwise. 
Note that the message is sent only if this is the initial ENABLE 
or a full DISABLE for this operator. Note that the request RQCB 
must be used instead of the operator RQCB to avoid a race condition 
when a user does an enable/disable and then implicitly disables the 
operator. This would cause the OPER_RQCB to evaporate in the middle 
of the NOTIFY_LISTED_OPERATORS operation. | 
| 
j 
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0 : 

0 RQCB CROCB_L_ATTNMASK1] = OPCSM_NM_CENTRL; 

042 RQCB CROCB_L_ATTNMASK2) = 0; 

042 QCB CHDR_V_BRD] = TRUE; 

0 ¢ MESSAGE _VECTOR (1) = 0; 

0 MESSAGE _VECTOR $3 = RQCB CROCB_L_OPER LEN; 

043 MESSAGE _VECTOR = .RQCB CRQCB_Q USERNAMELEN); 

043 MESSAGE VECTOR (4) = RQCB CRQCB_T _OSERNAME); 

043 FORMAT MESSAGE (.RQCB, MESSAGE_VECTOR); 

0434 LOG MESSAGE (.RQCB); 

0435 NOTIFY LISTED OPERATORS (.RQCB); 

0436 If ,FUCL_DISABLE 

0437 THEN 

4 3 NOTIFY_OPERATOR (.RQCB); 

oazo 5: END | 

0441 ! Since the operator status has changed. send an operator 

044 ! sta.us Byesage to the operator. This does not have to 

ork be done in the case of a full DISABLE. | 

0445 ! If the operator was implicitly disabled during a NOTIFY_LISTED_OPERATORS 
0446 : operation, then do not send the message, as it would cause the user to 
0447 ! think that the enable operation had completed. This does not close the 
044 H tining window, but only makes it's occurrance less annoying. A simple 
44 i test for the implicit disable is to check the sequence number on the 
456 ! operator RQCB. If it is zero, it means that operator has been disabled, | 
0451 ! and the RQCB deallocated. 
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453 4 ' 
454 $28 iF (NOT .FULL_DISABLE) AND (.OPER_RQCB CRQCB_L_SEQNUM] NEQ 0) 
455 pee THEN 
456 455 BEGIN 
457 Oe 28 ‘ ; 
458 045 ! Create a buffer descriptor for the status message, 
PB? bees format the message, and log it. 
461 0460 STATUS_DESC ([0,0,32,0] = OPCSK_MAXREAD; ! Set buffer size 
46¢ 0461 STATUS-DESC_CDSC$A_POINTER] = STATUS_BUF; i Set buffer address 
46 beog MESSAGE_VECTOR [0J]"= OPCS_OPERSTS: ' Set message number 
464 046 MESSAGE _VECTOR [iJ = 0; ' Set # of message args 
465 0464 MESSAGE_VECTOR ¢ = RQCB CROCB L_OPER_LEN); ! Operator desc. addr 
466 0465 MESSAGE VECTOR (3) = STATUS 4: : ' Status Line desc. addr 
ret rhe INTERPRET_MASK (OPER_RQCB RQCB_L_ATTNMASK1], STATUS_DESC, STATUS_DESC) 
68 BEGIN 
FORMAT MESSAGE (.RQCB, MESSAGE_VECTOR); 
LOG_MESSAGE (.RQCB); ! Log the status message 
WOTTFY OPERATOR (.RQCB); ! Send the message to the operator 
END; 


Deallocate the RQCB. If this was a full enable, clear 

the pointer to the operator device name, as both the 

RQCB and the OPER_RQCB point to the same device name. 
Deallocating the RQCB in this case would cause the OPER_RQCB 
device name to evaporate. 


gril Male 


RQCB CRQCB_L_OPER_PTR) = 0; 
EALLOCATE_ROQCB %.RQCB); 


If there was a potential loss of operator coverage, 
check the remaining requests queued to this OCD. 
The routine will cancel any requests that no longer 
have operator coverage. 

LOST_COVERAGE 


CHECK_OPER_COVERAGE (.0CD); 
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! End of OPRENABLE_HANDLER 


.TITLE OPCSOPRENABLE 

SIDENT \V04-000\ 

.EXTRN RQCB_K_TYPE, MIN SCOPE 

“EXTRN MAX_SCOPE, ALLOCATE_DS 

-EXTRN CHECK_OPER COVER 

-EXTRN CHECK-REQUEST, CLUSMSG_CONV_CLM_RQCB 
“EXTRN CLUSMSG RQCB SEN 

.EXTRN CREATE_OCD, BEALLOCATE_MCB 

-EXTRN DEALLOCATE.RQCB 

-EXTRN DUMP_LOG_FILE, FIND_OCD 
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; AX-11 Bliss-32 V4.0-74 
OPCOM. SRC JOPRENABLE .B32; 1 

IND OPERATOR. FORMAT MESSAGE 

NTERPRET_MASK MESSAG 

OTIFY RE ISTE OPE at 

OriFy OPERATOR 


ER_CONTEXT 
VALID OPERATOR. WRITE_LOG_FILE 
GLOBAL STATUS, *EXESSETOPR™ 


SCODES ,NOWRT ,2 


Saat on aeons Save R2,R3,R4,R5,R6,R7,- 


EX Hite "ha 
=261 SP 
FULL_DISABL : 
agUFFER_ DESC, #68 


SP 

BUF FE sc 

ae. CHECK REQUEST 
STATUS, 28 

RQCB, R6 

BUFFER 

. 2, atte OPERATOR 

2 

OPER_ROCB 


#2, FIND_OPERATOR 
R UNB 


11(RO), #2 

38(RO), 106(R6) 

6$ 

36(RO), 104 (R6) 

RESSAG VECTOR 
tShTRE) os 


g(n6) 
#360572, MESSAGE _VECTOR 
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OPCOM. SRC JOPRENABLE .B32; 1 
# SYSSCMKRNL 
te 


R 5, 
Be 40835, ESSAGE_VECTOR 
MESSAGE VECTOR+4 
MESSAGE -VECTOR 


#2, CORMAT_MESSAGE 
#1, NOTIFY_OPERATOR 

#1, DEALLOCATE_ROCB 
ENABLE _FLAG 

#360 MESSAGE_VECTOR 
ROC é 


#11 

#1, (SP) 

#3, CLUSMSG_RQCB_SEND 
OPER_RQCB, R3 


92(R2), =(SP) 

#0, #1, BB(R2), =< 

tt 6 OPER CONTE 

RO, Lost COVERAGE 

#1, 88(R2), 25$ 

ENABLE FLAG, #1, #1, 88(R3) 
2(R3) 


LE 
465 
Rk 


6(R3) 

26$ 
#1, FULL_DISABLE 
#i, #1, 84(R2), RO 
RO, #1, #1, 84(R3) 
Ba (R2), #0, #1, 84(R3) 
#1 ,DEALLOCATE_RQCB 


, ROC 
OPER. ROCB, RQCB 
RQ 
36(RO), OCD 

dD, RO 


#1, ARG_LIST 
#104, OPER_RQCB, ARG_LIST+4 
RG_LIST+8 

ARGILIST 


1 
#2, SYSSCMKRNL 
RQ Bs 
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; Routine Size: 766 bytes, Routine Base: S$CODE$ + 0000 


H 4 
OPCSOPRENABLE 16-Sep-1984 1: AX-11 Bliss-32 V4.0-7 Page 13) 
viet 12:3 Sep et 9}: $0: 4 OPCOM. SRC JOPRENABLE. 3 31 ° (2), 
1¢ AE D4 0025F CLRL_ = MESSA E _VECTOR+4 ; 429 ; 
0 AE 76 «Ad OE 66 MOVAB 1204(R2)> MESSAGE_VECTOR+8 + 0430) : 
4 AE 74 Ad 3 MOVZWL 116(R2). MESSAGE VECTOR+12 : 431 : 
8 AE $C Ae BE O026¢ MOVAB 60(R2) "MESSAGE VECTOR+16 > 04 4 : 
18 AE OF PUSHAB MESSAGE_V : 04633 ; 
52 DD 00274 PUSHL R : | : 
00006 CF " FB 00276 CALLS #2, FORMAT_MESSAGE ; : 
DD 00278 PUSHL R 3 0434 ; 
00006 CF : FB 4) CALLS #1, LOG_MESSAGE ; : 
é DD 00; PUSHL Re > 0435. ; 
00006 CF Fe CALLS @# NOTIFY bts 2 _OPERATORS : ; 
A 9 £9 00289 uC Futt_pIs + 0436 
DD C PUSHL R > 043 ; 
0000G CF O1 F 0 5 CALLS #1, NOTIFY_OPERATOR : ; 
4E 9 £ BLBS § FULL_DISABLE, 29$ + 0453 ; 
0c Ad DS 00 3 28$ TSTL  12(R3) : ; 
49 13 00 BEQL  29$ : : 
F8 AD OA00 = BF 3¢ 0298 MOVZWL #2560, STA sc + 0460 F 
FC eC AE : O2A1 MOV STATUS Sur tit DESC +4 + 0461 
18 AE 000580C3 BF DO 002A6 MOVL #360643, MESSAGE _VECTOR + 046 
1C AE D4 OO2AE CLRL MESSA E“VECT > 046 
20 AE 7¢ «Ad 9E 00281 MOVAB 124(R2), DE SSAGE VECTOR+8 + 0464 
se F8 AD SE 00286 MOVAB STAT US_DESC, MESSAGE_VECTOR+12 + 0465 
F8 AD OF 002BB PUSHAB STATUS DESC + 0466 
F8 AD OF 00 BE PUSHAB seen DESC : 
SC 6 AS) «OOF 00201 PUSHAB 92(R3) : 
00006 CF 03 FB 002C4 CALLS , INTERPRET_MASK : 
18 50 £9 02¢9 BLBC ; 
18 AE OF O02CcC PUSHAB MESSAGE_VECTOR + 0469 
52 DD OO2CF PUSHL R ; 
00006 CF 02 FB 00201 CALLS #2, FORMAT_MESSAGE ; 
52 DD 00 D6 PUSHL R + 0470 
00006 CF gi FB 002D CALLS #1, LOG_MESSAGE : 
2 DD 00200 PUSHL > 0471 
00006 CF or FB O2DF CALLS NOTIFY Y ,OPERATOR : 
0 A €9 002E4 29$:  BLBC ites + 0481 
0080 C2 D4 002E7 CLRL > 0483 
DD O02EB 30$: = PUSHL > 0484 
00006 CF 01 FB O2ED CALLS DEALLOCATE_RQCB : 
08 54 €9 00 Fe BLBC rt _COVERAGE , ~31$ > 0491 
08 AE DD O02F PUSHL 0 : 0493 
00006 CF 01 FB 0028 CALLS #1, CHECK_OPER_COVERAGE : 
04 OO2FD 31$: — RET > 0495 


4 
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3 138 +36 } GLOBAL ROUTINE OPRENABLE_CLM_HANDLER (BUFFER_DESC : Sref_bblock, CLM : Sref_bblock, LEN) : NOVALUE = : 
: 500 98 1 144 ; 
5 4 3 : Functional description: : 
3 08 2 1 : : — cout ont the Renéler for Oth hag OeneNAGLe rye recetvod Oy Sra - ie message ‘ 
3 contains nformation from an process on a remote node. e escribes an : 
; 305 g ' } operator on the remote node which the remote OPCOM has just enabled or disabled. : 
oF 806 1 | Input 
3 ! Input: ; 
4 09 S07 1 ‘ | : 
; $10 BE BUFFER_DESC = The address of a quadword buffer descriptor that describes the buffer : 
; a1) 8295 : + pomp aaban, the complete message (the SSNDOPR header plus the CLMRQCB ; 
; structure : 
3 318 0511 1! CLM - A pointer to start of the CLMRQCB structure embedded in the message | : 
3 1 b21§ : gs RR ng Fires entry in He message, so we can access CLMRQCB | : 
3 or elds w same pointer. ; 
3 516 bei 1! LEN - Length of the CLMROQCB Structure ; 
3 3% 0515 1! : 
; 518 3218 1! Implicit Input: $ 
; 519 0517 1! 3 
; 0 0518 1! None. | 3 
: 2 1 0519 1! 3 
3 ¢ 0520 1 ! Output: 3 
. > 0521 1! | g 
; 526 05 ¢ 1! None. | : 
; 525 05 1! 3 
; 526 0524 1! Implict output: 3 
3 Ser b2s2 1! 3 
; 528 0526 1! None. $ 
; 529 0527 1! $ 
; 530 05 $ 1 ! Side effects: 3 
; 531 05 1! : 
: * ¢ 0530 1! None. $ 
3; 3 9531 1! 3 
: 534 05 ¢ 1 ! Routine value: 3 
; 535 05 1! ; 
; 536 0534 1! None. 3 
3 337 0535 1 !-- 3 
; 538 05 § 1 3 
; 44 bees BEGIN ! Start of OPRENABLE_CLM_HANDLER : 
: sei b2zp LOCAL 3 
; 4g 540 STATUS_DESC : S$desc_block ! Descriptor for status message 3 
3; 36 0541 STATUS BUF : Sbblock fortsx MAXREAD], ! Buffer for status message | ; 
; 544 0308 MESSAGE_VECTOR : VECTOR (5,LONGJ, ' Message vector 3 
; $2 0364 4 Laer : Sret spbtock. ponaner a request text 3 
: : P ' Arguemen s 3 
; 209 545 ENABLE _FLAG : LONG, ! 1 1f ENABLE, 0 if DISABLE 3 
: 548 246 FULL_DISABLE : LONG, ! Boolean 3 
; 549 54 NABLE : LONG, ' Boolean 3 
; 550 548 FOUN : LONG, ' Boolean F 
s 351 549 LOST_COVERAGE : LONG. ' Boolean : 
3 2§ 550 : $ref_bblock, ! OCD structure : 
3 39 551 ROCB : $ref_bblock, ' ReQuest Context Block : 
; «4556 0552 OPER_ROCB : Sref_bblock, ! Known operator RQCB 3 
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STATUS : LONG; 


ULL_ENABLE = FALSE; 
ULL“DISABLE = FALSE; 


Check the version number of the message. If the message is from any other version, 
simply ignore it. 


CLM CCLM_B_DS_VERSION] NEQ CLMRQCB_K_DS_VERSION 

RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘CLM__OPRENABLE mismatch"); 
Allocate an RQCB and convert the message RQCB into the new RQCB 

F “ee CLUSMSG_CONV_CLM_ROQCB (.CLM, RQCB) 

RETURN DUMP_LOG_FILE (.BUFFER_DESC, ascid_INVALIDRQCB); 


! See if the operator is already known to OPCOM. This entails scanning down the ppereprtate opera 
The! and ao ee the device names for equality. FIND_OPERATOR will set RQCB CRQCB_L_OCD) if i 
nds a match. 


FOUND = FIND_OPERATOR (.RQCB, OPER_RQCB); 
i If the operator is known to OPCOM, then the requestor's UIC must agree with the UIC of the known 
! operator. If it does not, then dismiss the request without notifying the requestor, as this 

! would only allow a user to cause an operator to be plauged with error messages for a request he 
did not send. 
I 
T 


F .FOUND 
HEN 
EGIN 
OCD = .RQCB CRQCB_L_ OCD); ! Get the OCD address 
IF ((.0CD poco B SCOPE) EQL OPC$K_GROUP) AND ! If GROUP OCD, the group fields 
-OCD C$BYTEOFFSET (OCD_L_UICY,16,16,0] NEQ ! of the UIC must be the same for both 
;ROCB CS$BYTEOFFSET (ROTBL UIC) 16,16,0)) !' the known operator and the requestor. 
OR ((.0CD FOCD 6. scored EQL OPCSk_USER) AND ! If USER OCD, the UICs must be equal. 
-OCD COCD-L-UIC] NEQ .RQCB CRACB_L_UICI)) 
BEGIN . ! Dismiss the request 
WRITE LOG FILE (ZASCID ‘bad uic in clmrqcb'); 


E 

DEALLOCATE_ROCB (.RQCB); 
RETURN; 
END; 
MESSAGE _VECTOR fo) 
MESSAGE _VECTOR 1 
Finish the request. 
if NOT .SbbLock CROCB CROQCB_L_RQ_OPTIONS], OPCS$V_DISABLE) 

BEGIN 

This is an enable request. 

ENABLE_FLAG = 1; ' Set bit value 


0: ' Assume no error 
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16-Sep 4 01:41:1 AX-11 Bliss-32 V4.0-7 
1o-88b-1882 93:80:33 — EOBcom. SacSbpRenAsie.049;1 
message “JECT OR CO] = OPCS_TERMENAB; ! Set message code 

THE 


N 
BEGIN 


The operator is not known to OPCOM. An operator RQCB 
' must be created and inserted onto the S popropr ate OCD 
| operator List so the generalized ENABLE logic will work. 


L_ENABLE = 
ALLOCATE DS (RUCK k TPE rer _ROCB); } Clone a new RQCB 

TROCB Ko ae Copy old RQC 

RQCB T OVER ad, OPER -RQCB CROCB_T OVERLAY); 
OPER_RQCB ROCB_L 1 Sere option sesh 
OPER_RQCB (ROCB_ -+-8 bet $1: ° ra 0: i Zero option mask 
OPER-RQCB CROCB_L_ATTNMASK1 i Zero mask for enable 
OPER” =RQCB CROCB_L-ATTNMASK2 i Zero mask for enable 


fogert the Spereter RQCB into the operator List in the appropriate 
OCD. If no OCD is found, then a new one must be created. 


if wor FIND_OCD (.RQCB CRQCB_B_SCOPEJ, .RQCB CROCB_L_UICIJ, OCD) 


CREATE_OCD (¢ specs CROCB_B_SCOPE], .RQCB CROCB_ L_UICJ, OCD); 
INSQUE (.OPER_ROQCB D_Coch c _OPERFLINK]); '“Insert cloned RQCB onto operator List 
OPER Roce CROtB (Peep OC i Set pointer to OCD 
OCD D TOCD_w “OPERTOONTS = .0CD toco. W_OPERCOUNTJ+1;! Increment operator count 


IF NOT .FOUND 
THEN 


33333; 
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OS 


aon 
SOOO UE WIN OO OONOAUES WN OOONOUM 


BEGIN 
The user is trying to disable a nonexistent operator. 
MESSAGE VECTOR R £0} = ppc _ ILLRQST; 


yd ty “VECTOR 
FORMA AGE (.RQCB, MESSAGE VECTOR); 


T_MESS 
NOTIFY"OPERATOR (.ROQCB); 
DEALLOCATE. ROCB (. ROCB): 


This is a legitimate DISABLE request. 
E 


NABLE_FLAG = 0; ! Set for disable request 
NESSAGE_VECTOR C0] = OPC$_TERMDSBL; 


Yodote tee OCD count vector for Pay bit present in the bit mask. The count will be docronented 


ABLE, incremented for an ENABLE. Also update the OCD operator intrest mask, and the 


corresponding. intrest mask in the operator RQCB. Note if there was a potential lose of operator 
coverage on any outstanding requests. 
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OPCSOPRENABLE 1b-Sep -1984 AX-11 Bliss-32 V4.0-7 Page 17| oP 
v04-000 ats ra ed Ter 9° (3) vo 
9 67 2 LOST_COVERAGE = UPD_OPER_CONTEXT (.$bbiock CROCB [ROCB.L_RO_OPTIONSJ, OPCSV_DISABLEJ, 
670 6 "ROCB fRoce. C_ATTNMASKT], 
671 66 "ROCB CROCB-L“ATTNMASK 23, 
67 “OPER_ROCB ~ 


i Set the PERMOPER bit as desired. 

If .$bblock CRQCB CRQCB_L_RQ_OPTIONS], OPC$V_PERMOPER) 

Sbblock COPER_RQCB CRQCB_L_RQ_OPTIONS], OPC$V_PERMOMER] = .ENABLE_FLAG; 

If the OPER_RQCB attention mask went to 0, then disable the operator terminal. 
ag OO CRQCB_L_ATTNMASK1] EQL 0) AND (.OPER_RQCB CRQCB_L_ATTNMASK2] EQL 0) 


CONAVLSWN—O0Oo~ 


DISABLE 
sbblsck peers “Rucee trace. L_OPTIONS), OPCS$V -NOLOG) = .$bblock CRQCB CRQCB_L_OPTIONS], OPC$V_NOBRD); 
$Sbblock tOpeR wee Broce. LIOPTIONSJ, OPC$V-NOLOG] = .$bblock CRQCB ROCB_ LZOPTIONS], OPC$V-NOLOG); 


' 
; 689 0687 DEALLOCATE ' Get rid of the old RQ 
3 0688 EMQUE (. ay Rac ca" oRace) ; i Remove operator RQCB from List 
; «691 0689 RQCB = zOPER crate: ' Copy the RQCB address 
; 69 0690 ocD = .racB gce ' Get OCD address 
; 69 begs ee. Coco _ W SOPERCOONT ‘ocp COCD_W _OPERCOUNT] - 1; 
; 695 069 ' 
$ 0694 OCD = -OPER_RQCB CRQCB L -0CDI; 
3; 697 0695 RQC o. cCrecB C OCD) = .0 
; 698 0696 IF .FULL_ ENABLE OR FULL. * DISABLE 
; 699 0697 THEN 
3 oe Beas BEGIN 
: 702 0700 Send the ENABLE/DISABLE message to all CENTRAL operators connected to this OCD. Do not notify 
: a? 249 ; the requestor, she is on another node. 
; 705 6708 ROCB trace L_ATTNMASK*) = OPCSM_NM_CENTRL; 
; 706 0704 RQCB trace L gATINASKe) = Q; 
3; 707 0705 RQCB H 3 
; 708 0706 AE SSAGE Oe eTER = 0; 
: 709 0707 MESSAGE _ VECTOR ; = RQCB CROCB_L_OPER_LENI; 
; 710 0708 MESSAGE oVECTOR = .RQCB CROCB OQ USERNAMELEN]; 
3; 711 0709 ; SAGE VECTOR = ROCB croce_ TO 3 
3 ar Brio 7 AESSAGE | (race, MESSAGE BOECTOR) 
,; Fy 711 G MESSAGE 
: 714 Orig NOTIFY *Pa ste: “OPERATORS (.RQCB); 
Ae AMG 
s Tie 0715 : ay tse the RQCB. If this was a full enable, clear the pointer to the onerator device name, 
; 718 0716 ! as both the RQCB and the OPER_RQCB point to the same device name. Deallocating the RQCB in this 
3 at pele case oll cause the OPER_RQCB device name to evaporate. 
: 44 ng if .FULL ENABLE 
3 $6 4 9 THEN 
: rok 7 4 DEALLOCATE_ROCB T.ROCB); 
s vas 07 ' 


ROCB CRQCB_L_OPER PTR) = 0; | 


mM 4 
OPCSOPRENABLE 16-Se 4 01:41:1 AX-11 Bliss-32 V4.0-7 Page 18 
voc 1ergeb71882 93:40; OPCOM. SRCIOPRENABLE 63551 ~ a 
3 © $ 0724 ' If there was a pee loss of operator coverage,check the remaining requests queued to this OCD. 
; 83 5 } The routine will cancei any requests that no longer have operator coverage. 
3; 729 07 § IF .LOST_ COVERAGE 
: 7350 Bf 8 THEN 
3 f 1 Bf 4 CHECK_OPER_COVERAGE (.0CD); 
.. « § 0731 1 END; ! End of OPRENABLE_CLM_HANDLER 
-PSECT $PLIT$,NOWRT,NOEXE,2 
20 45 4C 42 41 GE 45 $2 5 4F SF SF 4D 4C 43 00000 P.AAB: .ASCII \CLM__OPRENABLE mismatch\<0> : 
00 68 63 74 61 6D 73 69 6D O000F 3 
010E0017 Ba0ie P.AAA: .LONG 17694743 : 
00000000' 000:¢ -ADDRESS P.AAB : 
72 6D 6C 63 20 6€ 69 20 63 69 75 20 64 61 $¢ 00020 P.AAD: .ASCII \bad uic in clmrqcb\<0><0> ; 
00 00 62 63 71 Q002F 2 
010E0012 00034 P.AAC: .LONG 17694738 3 
00000000° 00038 ADDRESS P.AAD F 
-EXTRN ASCID_INVALIDROQCB 
-PSECT $CODE$,NOWRT,2 
OFFC 00000 ~ENTRY COREE RS CLM_HANDLER, Save R2,R3,R4,R5,R6.,-; 0496 
58 00006 CF 9€E 00002 MOVAB se RQCB, R11 : 
5E FS5SCC CE 9E 00007 MOVAB SP ; 
59 7C OCO0C CLRQ FULL_ 3; 0555 
52 08 AC DO OOO00E MOVL CLM : 0561 
02 02 A2 91 00012 CMPB CUR Re #2 : 
06 13 00016 BEQL 1$ 3 
0000"' CF 9F 00018 PUSHAB P.AAA : 0563 
10 11 O001C BRB 2$ 3 
4004 8F 6B OOOIE 1$: PUSHR #*M<R2,SP> : 0567 
0000G CF 98 4 | 000 CALLS #2, CLUSMSG_CONV_CLM_ROQCB ; 
0D 5 3 000 BLBS 3 
0000G CF F OO02A PUSHAB Ast 1d INVALIDROCB 3; 0569 
04 AC OD OO02ZE 2$: PUSHL UF F ; 
0000G CF 02 fe 88 1 5 ee a. DUAMP_LOG_FILE 3 
os AE 9F B08 7 3$: PUSHAB OPER Race 3; 0575 
57 4 ag dO A MOVL RoC, R : 
57 DD 4 $4: PUSHL 3 
0000G CF 3 F oe CALLS m2. FA 4p “ae ; 
52 2 DO 0004 MOVL 3 
oF § E9 00048 BLBC FOUND. ung ; 
08 AE 24 A? D0 0048 MOVL  36(R75, OCD : 
50 8 AE D0 005 MOVL OCD, RO : 
02 0B AO 91 00054 CMPB  =s:«+11(RO), #2 : 
07 12 Ones BNEQ 4$ 3 
6A A7 26 AO Bi 00 7] CMPW +: ta 106(R7) ; 0588 
0D 4¢ O0O5F BNEQ $ 3 
03 08 ‘9 9 Bae 4$ CMPB 11(RO), #3 : 0589 
13 12 00065 BNEQ 6$ 3 
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SSAGE_VECTOR 
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OR+4 
_VECTOR 


VECTOR 
FLAG 
— 
K_TYPE 
OCATE_DS 
CB, _Rb 
MESSAGE 
B, R3 
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485 bytes, Routine Base: SCODES + O2FE 


; Routine Size: 


! End of OPRENABLE 


PSECT SUMMARY 


OPCSOPRENABLE 16- $ep-1984 01:41:1 AX=11 Bliss-32 V4.0-74 Page 21. OP 
veer 1 300-138 93: :50 48 acon. SRCTOPRENMBLE.b39s1 . ait v0 
3 Name Bytes Attributes 

: $CODES 1251 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON NOPIC ALIGN(2) 

: $PLITS$ 60 NOVEC.NOWRT. RO {NOEXE.NOSHR, LCL, REL. CON.NOPIC.ALIGN(2) 


Library Statistics 


aerial Syakels socersce Pages Processing 
File Total Loaded Percent Mapped Time 


| 
| 
| 
| 
| 
$33SSdUAz8:CoPCOM-OBJJOPCOMLIB.L32;1 653 45 hac al 00:00:9 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:OPRENABLE/OBJ=OBJ$:OPRENABLE MSRC$:OPRENABLE/UPDATE=(ENHS$: OPRENABLE ) 


3; Size: 1251 code + 60 data bytes 
; Run Time: 726. 
3; Elapsed Time: fF 2.7 
3 Lines/CPU Min: 1695 

3 Lexemes/CPU-Min: 18820 

: eee | Used: 244 pages 
o a 


; Compilation Complete 
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